home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / dev / basic / Mildred.lha / lha / HStarDemo.lha / starfield.bb2 < prev   
Unknown  |  1999-03-08  |  3.3 KB

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
100% file data default
100% TrID Flexible Line Interpretation bitmap default (weak)



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 3b 48 6f 72 69 7a 6f | 6e 74 61 6c 20 53 74 61 |.;Horizo|ntal Sta|
|00000010| 72 66 69 65 6c 64 20 77 | 69 74 68 20 53 69 6e 65 |rfield w|ith Sine|
|00000020| 57 61 76 65 20 4c 6f 67 | 6f 00 3b 00 3b 50 72 6f |Wave Log|o.;.;Pro|
|00000030| 67 72 61 6d 6d 65 64 20 | 62 79 20 3a 20 42 72 75 |grammed |by : Bru|
|00000040| 63 65 20 48 65 6e 64 65 | 72 73 6f 6e 20 28 42 61 |ce Hende|rson (Ba|
|00000050| 48 29 20 20 30 37 2e 30 | 33 2e 31 39 39 39 00 00 |H) 07.0|3.1999..|
|00000060| 3b 20 49 6e 63 6c 75 64 | 65 73 20 73 65 67 6d 65 |; Includ|es segme|
|00000070| 6e 74 73 20 6f 66 20 63 | 6f 64 65 20 62 79 00 3b |nts of c|ode by.;|
|00000080| 20 4d 69 6b 6b 65 6c 20 | 4c 6f 65 6b 6b 65 2c 20 | Mikkel |Loekke, |
|00000090| 61 6b 61 2e 20 46 6c 61 | 6d 65 44 75 63 6b 2c 00 |aka. Fla|meDuck,.|
|000000a0| 3b 20 28 65 78 70 6c 6f | 73 69 6f 6e 20 26 20 73 |; (explo|sion & s|
|000000b0| 69 6e 65 20 64 65 6d 6f | 29 00 3b 20 61 6e 64 20 |ine demo|).; and |
|000000c0| 50 61 75 6c 20 57 65 73 | 74 20 28 66 6f 72 20 50 |Paul Wes|t (for P|
|000000d0| 61 72 74 69 63 6c 65 20 | 63 68 61 6e 67 65 73 20 |article |changes |
|000000e0| 69 6e 20 45 78 70 6c 6f | 73 69 6f 6e 20 64 65 6d |in Explo|sion dem|
|000000f0| 6f 29 00 00 3b 20 52 75 | 6e 73 20 61 74 20 32 35 |o)..; Ru|ns at 25|
|00000100| 66 70 73 20 6f 6e 20 30 | 36 30 2f 35 30 00 00 80 |fps on 0|60/50...|
|00000110| c3 00 80 cc 00 00 00 80 | 01 20 2e 70 6f 69 6e 74 |........|. .point|
|00000120| 00 20 20 78 2e 77 00 20 | 20 79 2e 77 00 80 02 20 |. x.w. | y.w... |
|00000130| 80 01 00 80 01 20 2e 70 | 6f 69 6e 74 32 00 20 20 |..... .p|oint2. |
|00000140| 78 73 70 65 65 64 2e 77 | 00 20 20 79 73 70 65 65 |xspeed.w|. yspee|
|00000150| 64 2e 77 00 80 02 20 80 | 01 00 00 23 6e 75 6d 70 |d.w... .|...#nump|
|00000160| 6e 74 73 3d 32 35 35 20 | 20 20 20 20 20 20 20 20 |nts=255 | |
|00000170| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b | | ;|
|00000180| 20 50 6f 69 6e 74 73 20 | 73 65 74 20 66 6f 72 20 | Points |set for |
|00000190| 65 61 63 68 20 68 6f 72 | 69 7a 6f 6e 74 61 6c 20 |each hor|izontal |
|000001a0| 6c 69 6e 65 2e 00 64 65 | 67 72 61 64 2e 71 20 3d |line..de|grad.q =|
|000001b0| 20 80 ba 2f 31 38 30 20 | 20 20 20 20 20 20 20 20 | ../180 | |
|000001c0| 20 20 20 20 20 20 20 20 | 20 20 3b 20 44 65 67 72 | | ; Degr|
|000001d0| 65 65 2f 52 61 64 69 61 | 6e 20 43 6f 6e 76 65 72 |ee/Radia|n Conver|
|000001e0| 74 65 72 00 00 80 04 20 | 70 6e 74 2e 70 6f 69 6e |ter.... |pnt.poin|
|000001f0| 74 20 28 23 6e 75 6d 70 | 6e 74 73 29 00 80 04 20 |t (#nump|nts)... |
|00000200| 70 6e 74 32 2e 70 6f 69 | 6e 74 32 20 28 23 6e 75 |pnt2.poi|nt2 (#nu|
|00000210| 6d 70 6e 74 73 29 00 00 | 80 04 20 4c 6f 6f 6b 75 |mpnts)..|.. Looku|
|00000220| 70 28 34 36 30 29 20 20 | 20 20 20 20 20 20 20 20 |p(460) | |
|00000230| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 53 65 | | ; Se|
|00000240| 74 75 70 20 6f 75 72 20 | 73 69 6e 65 20 6c 6f 6f |tup our |sine loo|
|00000250| 6b 75 70 20 74 61 62 6c | 65 2e 00 80 16 20 69 3d |kup tabl|e.... i=|
|00000260| 30 20 80 18 20 34 36 30 | 00 20 20 4c 6f 6f 6b 75 |0 .. 460|. Looku|
|00000270| 70 28 69 29 3d e0 0a 28 | 28 69 29 2a 64 65 67 72 |p(i)=..(|(i)*degr|
|00000280| 61 64 2a 32 29 2a 32 30 | 00 80 17 00 00 80 33 2e |ad*2)*20|......3.|
|00000290| 6c 00 00 87 e5 20 e0 85 | 20 20 20 20 20 20 20 20 |l.... ..| |
|000002a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 | | ; |
|000002b0| 54 65 6c 6c 20 4d 69 6c | 64 72 65 64 20 77 68 69 |Tell Mil|dred whi|
|000002c0| 63 68 20 43 50 55 20 69 | 74 20 73 68 6f 75 6c 64 |ch CPU i|t should|
|000002d0| 20 75 73 65 2e 00 87 86 | 20 e0 85 20 20 20 20 20 | use....| .. |
|000002e0| 20 20 20 20 20 20 20 20 | 20 20 3b 20 54 65 6c 6c | | ; Tell|
|000002f0| 20 4d 69 6c 64 72 65 64 | 20 77 68 69 63 68 20 43 | Mildred| which C|
|00000300| 50 55 20 69 74 20 73 68 | 6f 75 6c 64 20 75 73 65 |PU it sh|ould use|
|00000310| 20 66 6f 72 20 63 32 70 | 2e 00 00 87 8e 20 32 20 | for c2p|..... 2 |
|00000320| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000330| 20 20 3b 20 54 65 6c 6c | 20 4d 69 6c 64 72 65 64 | ; Tell| Mildred|
|00000340| 20 74 68 61 74 20 77 65 | 27 72 65 20 67 6f 69 6e | that we|'re goin|
|00000350| 67 20 74 6f 20 75 73 65 | 20 33 20 63 68 75 6e 6b |g to use| 3 chunk|
|00000360| 79 20 62 69 74 6d 61 70 | 73 2e 00 87 8c 20 31 20 |y bitmap|s.... 1 |
|00000370| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b | | ;|
|00000380| 20 54 65 6c 6c 20 69 74 | 20 77 65 20 6f 6e 6c 79 | Tell it| we only|
|00000390| 20 6e 65 65 64 20 6f 6e | 65 20 63 32 70 20 64 69 | need on|e c2p di|
|000003a0| 73 70 6c 61 79 2e 00 00 | a6 02 20 30 2c 33 32 30 |splay...|.. 0,320|
|000003b0| 2a 32 35 36 2c 24 31 30 | 30 30 30 00 d0 07 20 32 |*256,$10|000... 2|
|000003c0| 2c 33 32 30 2c 32 35 36 | 2c 38 2c a6 01 28 30 29 |,320,256|,8,..(0)|
|000003d0| 00 d0 02 20 32 2c 22 4c | 6f 67 6f 2e 49 46 46 22 |... 2,"L|ogo.IFF"|
|000003e0| 00 87 90 20 31 2c 33 32 | 30 2c 32 35 36 20 20 20 |... 1,32|0,256 |
|000003f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000400| 3b 20 54 68 69 73 20 77 | 69 6c 6c 20 63 6f 6e 74 |; This w|ill cont|
|00000410| 61 69 6e 20 6f 75 72 20 | 63 68 75 6e 6b 79 20 62 |ain our |chunky b|
|00000420| 75 66 66 65 72 2e 00 00 | 88 2e 20 31 2c a6 01 28 |uffer...|.. 1,..(|
|00000430| 30 29 2c 33 32 30 2c 32 | 35 36 2c 33 32 30 2c 32 |0),320,2|56,320,2|
|00000440| 35 36 00 00 00 00 2e 69 | 6e 69 74 67 72 61 70 68 |56.....i|nitgraph|
|00000450| 69 63 73 00 87 90 20 30 | 2c 33 32 30 2c 32 35 36 |ics... 0|,320,256|
|00000460| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000470| 20 20 20 3b 20 54 68 69 | 73 20 77 69 6c 6c 20 63 | ; Thi|s will c|
|00000480| 6f 6e 74 61 69 6e 20 6f | 75 72 20 63 68 75 6e 6b |ontain o|ur chunk|
|00000490| 79 20 62 75 66 66 65 72 | 2e 00 00 87 87 20 30 2c |y buffer|..... 0,|
|000004a0| 33 32 30 2c 32 35 36 20 | 20 20 20 20 20 20 20 20 |320,256 | |
|000004b0| 20 20 20 20 20 20 20 3b | 20 53 65 74 75 70 20 73 | ;| Setup s|
|000004c0| 74 72 75 63 74 75 72 65 | 73 20 66 6f 72 20 63 32 |tructure|s for c2|
|000004d0| 70 20 63 6f 6e 76 65 72 | 73 69 6f 6e 73 2e 00 00 |p conver|sions...|
|000004e0| 80 04 20 62 6d 2e 6c 28 | 31 29 20 20 20 20 20 20 |.. bm.l(|1) |
|000004f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000500| 20 20 20 3b 20 57 65 20 | 75 73 65 20 74 77 6f 20 | ; We |use two |
|00000510| 62 69 74 6d 61 70 73 20 | 66 6f 72 20 64 6f 75 62 |bitmaps |for doub|
|00000520| 6c 65 20 62 75 66 66 65 | 72 69 6e 67 00 00 80 16 |le buffe|ring....|
|00000530| 20 6c 3d 30 20 80 18 20 | 31 00 20 20 3b 20 47 65 | l=0 .. |1. ; Ge|
|00000540| 74 20 73 6f 6d 65 20 66 | 72 65 65 20 43 48 49 50 |t some f|ree CHIP|
|00000550| 20 6d 65 6d 6f 72 79 00 | 20 20 62 6d 28 6c 29 3d | memory.| bm(l)=|
|00000560| a6 08 28 33 32 30 2a 32 | 35 36 2c 24 31 30 30 30 |..(320*2|56,$1000|
|00000570| 32 29 00 20 20 80 0b 20 | 62 6d 28 6c 29 20 20 20 |2). .. |bm(l) |
|00000580| 3b 20 61 6e 64 20 69 66 | 20 77 65 20 73 75 63 63 |; and if| we succ|
|00000590| 65 65 64 00 20 20 20 20 | 3b 20 6d 61 6b 65 20 69 |eed. |; make i|
|000005a0| 74 20 61 20 70 6c 61 6e | 61 72 20 62 69 74 6d 61 |t a plan|ar bitma|
|000005b0| 70 2e 00 20 20 20 20 d0 | 07 20 6c 2c 33 32 30 2c |p.. .|. l,320,|
|000005c0| 32 35 36 2c 38 2c 62 6d | 28 6c 29 00 20 20 80 22 |256,8,bm|(l). ."|
|000005d0| 00 20 20 20 20 80 02 00 | 20 20 80 c0 00 80 17 20 |. ...| ..... |
|000005e0| 6c 00 00 80 04 20 73 63 | 72 74 61 67 6c 73 74 2e |l.... sc|rtaglst.|
|000005f0| 54 61 67 49 74 65 6d 28 | 37 29 20 20 20 20 20 20 |TagItem(|7) |
|00000600| 20 20 20 20 20 20 3b 20 | 41 6c 6c 20 74 68 69 73 | ; |All this|
|00000610| 20 73 74 75 66 66 20 73 | 65 74 73 20 75 70 20 6f | stuff s|ets up o|
|00000620| 75 72 00 73 63 72 74 61 | 67 6c 73 74 28 30 29 5c |ur.scrta|glst(0)\|
|00000630| 74 69 5f 54 61 67 20 3d | 20 23 53 41 5f 4c 65 66 |ti_Tag =| #SA_Lef|
|00000640| 74 20 20 20 20 20 20 3b | 20 54 61 67 6c 69 73 74 |t ;| Taglist|
|00000650| 20 66 6f 72 20 74 68 65 | 20 73 63 72 65 65 6e 20 | for the| screen |
|00000660| 77 65 00 73 63 72 74 61 | 67 6c 73 74 28 30 29 5c |we.scrta|glst(0)\|
|00000670| 74 69 5f 44 61 74 61 20 | 3d 20 30 20 20 20 20 20 |ti_Data |= 0 |
|00000680| 20 20 20 20 20 20 20 3b | 20 77 61 6e 74 2e 00 73 | ;| want..s|
|00000690| 63 72 74 61 67 6c 73 74 | 28 31 29 5c 74 69 5f 54 |crtaglst|(1)\ti_T|
|000006a0| 61 67 20 3d 20 23 53 41 | 5f 44 65 70 74 68 00 73 |ag = #SA|_Depth.s|
|000006b0| 63 72 74 61 67 6c 73 74 | 28 31 29 5c 74 69 5f 44 |crtaglst|(1)\ti_D|
|000006c0| 61 74 61 20 3d 20 38 00 | 73 63 72 74 61 67 6c 73 |ata = 8.|scrtagls|
|000006d0| 74 28 32 29 5c 74 69 5f | 54 61 67 20 3d 20 23 53 |t(2)\ti_|Tag = #S|
|000006e0| 41 5f 57 69 64 74 68 00 | 73 63 72 74 61 67 6c 73 |A_Width.|scrtagls|
|000006f0| 74 28 32 29 5c 74 69 5f | 44 61 74 61 20 3d 20 33 |t(2)\ti_|Data = 3|
|00000700| 32 30 00 73 63 72 74 61 | 67 6c 73 74 28 33 29 5c |20.scrta|glst(3)\|
|00000710| 74 69 5f 54 61 67 20 3d | 20 23 53 41 5f 48 65 69 |ti_Tag =| #SA_Hei|
|00000720| 67 68 74 00 73 63 72 74 | 61 67 6c 73 74 28 33 29 |ght.scrt|aglst(3)|
|00000730| 5c 74 69 5f 44 61 74 61 | 20 3d 20 32 35 36 00 73 |\ti_Data| = 256.s|
|00000740| 63 72 74 61 67 6c 73 74 | 28 34 29 5c 74 69 5f 54 |crtaglst|(4)\ti_T|
|00000750| 61 67 20 3d 20 23 53 41 | 5f 42 69 74 4d 61 70 00 |ag = #SA|_BitMap.|
|00000760| 73 63 72 74 61 67 6c 73 | 74 28 34 29 5c 74 69 5f |scrtagls|t(4)\ti_|
|00000770| 44 61 74 61 20 3d 20 80 | b8 20 d0 01 20 28 30 29 |Data = .|. .. (0)|
|00000780| 00 73 63 72 74 61 67 6c | 73 74 28 35 29 5c 74 69 |.scrtagl|st(5)\ti|
|00000790| 5f 54 61 67 20 3d 20 23 | 53 41 5f 53 68 6f 77 54 |_Tag = #|SA_ShowT|
|000007a0| 69 74 6c 65 00 73 63 72 | 74 61 67 6c 73 74 28 35 |itle.scr|taglst(5|
|000007b0| 29 5c 74 69 5f 44 61 74 | 61 20 3d 20 30 00 73 63 |)\ti_Dat|a = 0.sc|
|000007c0| 72 74 61 67 6c 73 74 28 | 36 29 5c 74 69 5f 54 61 |rtaglst(|6)\ti_Ta|
|000007d0| 67 20 3d 20 23 53 41 5f | 44 72 61 67 67 61 62 6c |g = #SA_|Draggabl|
|000007e0| 65 00 73 63 72 74 61 67 | 6c 73 74 28 36 29 5c 74 |e.scrtag|lst(6)\t|
|000007f0| 69 5f 44 61 74 61 20 3d | 20 30 00 73 63 72 74 61 |i_Data =| 0.scrta|
|00000800| 67 6c 73 74 28 37 29 5c | 74 69 5f 54 61 67 20 3d |glst(7)\|ti_Tag =|
|00000810| 20 23 54 41 47 5f 45 4e | 44 20 20 20 20 20 20 3b | #TAG_EN|D ;|
|00000820| 20 54 68 65 20 6d 6f 73 | 74 20 69 6d 70 6f 72 74 | The mos|t import|
|00000830| 61 6e 74 20 74 61 67 20 | 6f 66 20 74 68 65 6d 20 |ant tag |of them |
|00000840| 61 6c 6c 2e 00 00 cf 0f | 20 30 2c 22 4d 69 6c 64 |all.....| 0,"Mild|
|00000850| 72 65 64 44 45 4d 4f 22 | 2c 26 73 63 72 74 61 67 |redDEMO"|,&scrtag|
|00000860| 6c 73 74 28 30 29 20 3b | 20 4f 70 65 6e 20 6f 75 |lst(0) ;| Open ou|
|00000870| 72 20 69 6e 74 75 69 74 | 69 6f 6e 20 73 63 72 65 |r intuit|ion scre|
|00000880| 65 6e 2e 00 00 ce 1a 20 | 30 2c 3f 69 6e 63 70 61 |en..... |0,?incpa|
|00000890| 6c 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 |l | ; |
|000008a0| 47 65 74 20 6f 75 72 20 | 49 6e 63 42 69 6e 27 65 |Get our |IncBin'e|
|000008b0| 64 20 70 61 6c 65 74 74 | 65 20 69 6e 66 6f 2e 00 |d palett|e info..|
|000008c0| ce 13 20 30 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. 0 | |
|000008d0| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 41 74 74 | | ; Att|
|000008e0| 61 63 68 20 6f 75 72 20 | 70 61 6c 65 74 74 65 20 |ach our |palette |
|000008f0| 74 6f 20 74 68 65 20 73 | 63 72 65 65 6e 2e 00 00 |to the s|creen...|
|00000900| 00 88 55 20 30 00 00 80 | 16 20 74 2e 6c 3d 30 80 |..U 0...|. t.l=0.|
|00000910| 18 20 23 6e 75 6d 70 6e | 74 73 20 20 20 20 20 20 |. #numpn|ts |
|00000920| 20 20 20 20 20 20 20 20 | 20 20 3b 20 53 65 74 20 | | ; Set |
|00000930| 75 70 20 74 68 65 20 73 | 74 61 72 66 69 65 6c 64 |up the s|tarfield|
|00000940| 00 20 20 70 6e 74 28 74 | 29 5c 78 3d bc 07 28 33 |. pnt(t|)\x=..(3|
|00000950| 31 39 29 2b 31 00 20 20 | 70 6e 74 28 74 29 5c 79 |19)+1. |pnt(t)\y|
|00000960| 3d 74 00 20 20 70 6e 74 | 32 28 74 29 5c 78 73 70 |=t. pnt|2(t)\xsp|
|00000970| 65 65 64 3d 28 bc 07 28 | 35 29 2b 31 29 2a 2d 31 |eed=(..(|5)+1)*-1|
|00000980| 20 20 20 20 20 20 3b 20 | 53 6f 6d 65 20 72 61 6e | ; |Some ran|
|00000990| 64 6f 6d 20 53 70 65 65 | 64 73 2e 20 28 52 65 6d |dom Spee|ds. (Rem|
|000009a0| 6f 76 65 20 2a 2d 31 20 | 74 6f 20 72 65 76 65 72 |ove *-1 |to rever|
|000009b0| 73 65 29 00 20 20 70 6e | 74 32 28 74 29 5c 79 73 |se). pn|t2(t)\ys|
|000009c0| 70 65 65 64 3d 30 00 80 | 17 00 00 70 67 65 3d 30 |peed=0..|...pge=0|
|000009d0| 00 00 80 bb 20 20 20 20 | 20 20 20 20 20 20 20 20 |.... | |
|000009e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000009f0| 20 20 3b 20 52 65 70 65 | 61 74 20 6f 75 72 20 6d | ; Repe|at our m|
|00000a00| 61 69 6e 6c 6f 6f 70 20 | 2e 2e 2e 2e 00 20 20 64 |ainloop |..... d|
|00000a10| 65 67 2b 34 00 20 20 80 | 0b 20 64 65 67 3e 33 35 |eg+4. .|. deg>35|
|00000a20| 38 00 20 20 20 20 64 65 | 67 3d 30 00 20 20 80 c0 |8. de|g=0. ..|
|00000a30| 00 00 20 20 87 8b 20 62 | 6d 28 70 67 65 29 20 20 |.. .. b|m(pge) |
|00000a40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000a50| 20 20 20 20 3b 20 44 6f | 75 62 6c 65 20 42 75 66 | ; Do|uble Buf|
|00000a60| 66 65 72 00 20 20 cf 0a | 20 70 67 65 00 20 20 ff |fer. ..| pge. .|
|00000a70| 29 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |) | |
|00000a80| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 53 6d 6f | | ; Smo|
|00000a90| 6f 6f 6f 6f 6f 74 68 2e | 2e 2e 00 20 20 70 67 65 |oooooth.|... pge|
|00000aa0| 3d 31 2d 70 67 65 00 20 | 20 87 e6 00 00 20 20 88 |=1-pge. | .... .|
|00000ab0| 4b 20 26 70 6e 74 28 30 | 29 5c 78 2c 23 6e 75 6d |K &pnt(0|)\x,#num|
|00000ac0| 70 6e 74 73 2c 26 70 6e | 74 32 28 30 29 5c 78 73 |pnts,&pn|t2(0)\xs|
|00000ad0| 70 65 65 64 20 20 20 20 | 3b 20 4d 6f 76 65 20 74 |peed |; Move t|
|00000ae0| 68 65 20 53 74 61 72 73 | 00 20 20 88 4c 20 26 70 |he Stars|. .L &p|
|00000af0| 6e 74 28 30 29 5c 78 2c | 23 6e 75 6d 70 6e 74 73 |nt(0)\x,|#numpnts|
|00000b00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000b10| 20 20 20 20 20 3b 20 49 | 66 20 61 20 53 74 61 72 | ; I|f a Star|
|00000b20| 20 66 61 6c 6c 73 20 6f | 66 66 20 74 68 65 20 65 | falls o|ff the e|
|00000b30| 6e 64 2c 20 70 75 74 20 | 69 74 20 62 61 63 6b 20 |nd, put |it back |
|00000b40| 6f 6e 20 74 68 65 20 6f | 74 68 65 72 20 73 69 64 |on the o|ther sid|
|00000b50| 65 3b 00 20 20 88 47 20 | 26 70 6e 74 28 30 29 5c |e;. .G |&pnt(0)\|
|00000b60| 78 2c 23 6e 75 6d 70 6e | 74 73 2c 32 35 35 20 20 |x,#numpn|ts,255 |
|00000b70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b | | ;|
|00000b80| 20 44 72 61 77 20 74 68 | 65 6d 2e 00 00 20 20 80 | Draw th|em... .|
|00000b90| 16 20 79 3d 30 20 80 18 | 20 39 39 20 80 19 20 32 |. y=0 ..| 99 .. 2|
|00000ba0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000bb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 44 6f | | ; Do|
|00000bc0| 20 74 68 65 20 73 69 6e | 65 20 77 61 76 65 79 20 | the sin|e wavey |
|00000bd0| 62 69 74 73 2e 00 20 20 | 20 20 87 cd 20 30 2c 79 |bits.. | .. 0,y|
|00000be0| 2c 31 30 30 2c 32 2c 31 | 30 30 2b 4c 6f 6f 6b 75 |,100,2,1|00+Looku|
|00000bf0| 70 28 64 65 67 2b 79 29 | 2c 37 30 2b 79 2c 31 20 |p(deg+y)|,70+y,1 |
|00000c00| 20 20 20 3b 20 4f 66 66 | 73 65 74 20 65 61 63 68 | ; Off|set each|
|00000c10| 20 6c 69 6e 65 20 6f 66 | 20 6f 75 72 20 4c 6f 67 | line of| our Log|
|00000c20| 6f 20 77 69 74 68 20 74 | 68 65 20 53 69 6e 65 77 |o with t|he Sinew|
|00000c30| 61 76 65 00 20 20 80 17 | 00 00 80 bc 20 b1 02 28 |ave. ..|.... ..(|
|00000c40| 24 34 35 29 20 20 3b 20 | 2e 2e 2e 2e 20 55 6e 74 |$45) ; |.... Unt|
|00000c50| 69 6c 20 77 65 20 70 72 | 65 73 73 20 45 73 63 61 |il we pr|ess Esca|
|00000c60| 70 65 00 80 02 20 20 20 | 20 20 20 20 20 20 20 20 |pe... | |
|00000c70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000c80| 20 20 20 20 20 20 3b 20 | 45 6e 64 20 6f 66 20 70 | ; |End of p|
|00000c90| 72 6f 67 72 61 6d 2e 00 | 00 80 27 20 20 20 20 20 |rogram..|..' |
|00000ca0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000cb0| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 70 75 74 | | ; put|
|00000cc0| 20 66 6f 6c 6c 6f 77 69 | 6e 67 20 64 61 74 61 20 | followi|ng data |
|00000cd0| 6f 6e 20 61 6e 20 65 76 | 65 6e 20 61 64 64 72 65 |on an ev|en addre|
|00000ce0| 73 73 2e 20 4d 69 6e 6f | 72 20 73 70 65 65 64 20 |ss. Mino|r speed |
|00000cf0| 69 6e 63 72 65 61 73 65 | 2e 00 2e 69 6e 63 70 61 |increase|...incpa|
|00000d00| 6c 00 80 2a 20 22 4c 6f | 67 6f 2e 50 41 4c 22 20 |l..* "Lo|go.PAL" |
|00000d10| 3b 20 49 6e 63 6c 75 64 | 65 20 6f 75 72 20 70 61 |; Includ|e our pa|
|00000d20| 6c 65 74 74 65 20 69 6e | 66 6f 72 6d 61 74 69 6f |lette in|formatio|
|00000d30| 6e 20 69 6e 20 74 68 65 | 20 62 69 6e 61 72 79 2e |n in the| binary.|
|00000d40| 00 | |. | |
+--------+-------------------------+-------------------------+--------+--------+